home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusSound.dopus5 < prev    next >
Text File  |  1998-11-07  |  681b  |  16 lines
  1. /* DOpusSound.dopus5 */
  2. options results
  3. address 'DOPUS.1'
  4. dopus front
  5. address command 'Copy "DOplus:tutorial/Arexx Tutorial/Warning" RAM: QUIET'
  6. dopus query sound "'Open Lister'"
  7. oldsound = result
  8. dopus set sound "'Open Lister'" "'RAM:warning'" 64  /* Set the new sound */
  9. lister new                                          /* Open a lister */
  10. handle = result                                     /* Store it's handle */
  11. address command wait 3                              /* Wait 3 seconds */
  12. lister close handle                                 /* Close the lister */
  13. dopus set sound "'Open Lister'" oldsound 64         /* Restore the old sound */
  14. call delete('RAM:Warning')
  15. exit
  16.